home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / text / dtp / loutBin203.lha / lout / include / tab_prepend < prev   
Text File  |  1993-07-14  |  3KB  |  116 lines
  1. %%BeginResource: procset LoutTabPrependGraphic
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. %                                                  %
  4. %  PostScript @SysPrependGraphic file for @Tab     %
  5. %                                                  %
  6. %  To assist in avoiding name clashes, the names   %
  7. %  of all these symbols begin with "ltab".         %
  8. %                                                  %
  9. %  Jeffrey H. Kingston                             %
  10. %  24 September 1991                               %
  11. %  22 December 1992                                %
  12. %                                                  %
  13. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  14.  
  15. % linewidth ltabhs -
  16. % horizontal single line
  17. /ltabhs
  18. {  0 0 moveto xsize 0 lineto
  19.    setlinewidth 0 setlinecap stroke
  20. } def
  21.  
  22. % linewidth ltabhsp -
  23. % horizontal single line with projecting ends
  24. /ltabhsp
  25. {  0 0 moveto xsize 0 lineto
  26.    setlinewidth 2 setlinecap stroke
  27. } def
  28.  
  29. % linewidth ltabhd -
  30. % horizontal double line
  31. /ltabhd
  32. {  dup dup
  33.    0 0 moveto xsize 0 lineto
  34.    0 exch 3 mul moveto xsize exch 3 mul lineto
  35.    setlinewidth 0 setlinecap stroke
  36. } def
  37.  
  38. % linewidth ltabhdb -
  39. % horizontal double line below mark
  40. /ltabhdb
  41. {  dup dup
  42.    0 0 moveto xsize 0 lineto
  43.    0 exch -3 mul moveto xsize exch -3 mul lineto
  44.    setlinewidth 0 setlinecap stroke
  45. } def
  46.  
  47. % linewidth ltabhdnw -
  48. % horizontal double line with northwest corner
  49. /ltabhdnw
  50. {  dup dup dup dup
  51.    0 0 moveto xsize 0 lineto
  52.    xsize exch 3 mul moveto
  53.    -3 mul exch 3 mul lineto
  54.    -3 mul 0 lineto
  55.    setlinewidth 0 setlinejoin 2 setlinecap stroke
  56. } def
  57.  
  58. % linewidth ltabhdne -
  59. % horizontal double line with northeast corner
  60. /ltabhdne
  61. {  dup dup dup dup
  62.    0 0 moveto xsize 0 lineto
  63.    0 exch 3 mul moveto
  64.    3 mul xsize add exch 3 mul lineto
  65.    3 mul xsize add 0 lineto
  66.    setlinewidth 0 setlinejoin 2 setlinecap stroke
  67. } def
  68.  
  69. % linewidth ltabhdsw -
  70. % horizontal double line with southwest corner
  71. /ltabhdsw
  72. {  dup dup dup dup
  73.    0 0 moveto xsize 0 lineto
  74.    xsize exch -3 mul moveto
  75.    -3 mul exch -3 mul lineto
  76.    -3 mul 0 lineto
  77.    setlinewidth 0 setlinejoin 2 setlinecap stroke
  78. } def
  79.  
  80. % linewidth ltabhdse -
  81. % horizontal double line with southeast corner
  82. /ltabhdse
  83. {  dup dup dup dup
  84.    0 0 moveto xsize 0 lineto
  85.    0 exch -3 mul moveto
  86.    3 mul xsize add exch -3 mul lineto
  87.    3 mul xsize add 0 lineto
  88.    setlinewidth 0 setlinejoin 2 setlinecap stroke
  89. } def
  90.  
  91. % linewidth ltabvs -
  92. % vertical single line
  93. /ltabvs
  94. {  0 0 moveto 0 ysize lineto
  95.    setlinewidth 0 setlinecap stroke
  96. } def
  97.  
  98. % linewidth ltabvd -
  99. % vertical double line
  100. /ltabvd
  101. {  dup dup
  102.    0 0 moveto 0 ysize lineto
  103.    -3 mul 0 moveto -3 mul ysize lineto
  104.    setlinewidth 0 setlinecap stroke
  105. } def
  106.  
  107. % linewidth ltabvdr -
  108. % vertical double line to right of mark
  109. /ltabvdr
  110. {  dup dup
  111.    0 0 moveto 0 ysize lineto
  112.    3 mul 0 moveto 3 mul ysize lineto
  113.    setlinewidth 0 setlinecap stroke
  114. } def
  115. %%EndResource
  116.